home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_004_19xx_-_de_Disk_2_of_2_Side_B.d64
/
planet of death
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
11KB
|
323 lines
1 rem planet of death
9 goto1000
10 rem ** kollision **
11 :
15 fort=0to2
16 ifpeek(53246)=1then25
17 if(peek(v+30)and1)=1then25
18 next:return
25 rem ** kollision **
26 :
27 pokev+30,0:pokev+31,0
29 l=l-1:poke53246,1:pokev,57:pokev+1,199
30 ifl=-1then40
31 poke214,22:poke211,35:sys58640
32 print"[149]"str$(l)
33 fort=30to1step-1:poke53206,t:sys53200:next
34 poke53246,0:return
40 rem ** game over **
41 :
42 pokev+21,0:print"[147]":printtab(15)"[155]game over"
44 print" feuerknopf druecken um das spiel"
45 printtab(11)"erneut zu starten":printtab(14)"score ="sc
46 poke53221,33:poke53206,int(rnd(0)*255):sys53200
48 ifpeek(56320)<>111then46
49 poke53221,129:poke53206,130:goto15000
50 rem ** bild 1 **
51 :
52 goto30000
80 ti$="000000":he=99:pokev+21,15
81 gosub720:l=l+1:gosub25:gt=0
100 sys49152
112 pokev+30,0:pokev+31,0
120 rem ** bild 1 beendet ? **
125 ifpeek(v+1)<45then603
200 :
205 ifval(ti$)<(1+le)then300
206 :
207 rem ** uhr **
208 he=he-1:ifhe=-1thenhe=99:gosub25
209 poke214,4:poke211,24:sys58640
210 poke1209,160:poke1210,160:print"[149]"he
220 poke1648,101:poke1688,84:poke1728,71:poke1768,66:poke53206,120:sys53200
240 fort=1to5:poke56944,t:poke56945,t:poke56946,t:poke56947,t:next
250 poke1648,32:poke1688,32:poke1728,32:poke1768,32:ti$="000000"
300 :
400 rem ** kollision ? **
401 :
405 gosub10:goto100
603 rem ** bild 2 **
605 :
630 pokev+21,0:goto32000
631 pokev,56:pokev+1,199:sc=sc+(he*10)+100
632 pokev+8,200:pokev+9,173:poke715,0
633 gosub720:pokev+21,63:l=l+1:gosub25
640 rem ** bild 2 beendet ? **
641 :
642 ifpeek(v+1)<45then800
643 :
645 rem ** sperren ? **
646 ifval(ti$)<5then652
647 poke1546,32:poke1547,32:poke1548,32:poke1256,32:poke1257,32:poke1258,32
648 fort=0to(300+le*70):next
649 poke1546,28:poke1547,28:poke1548,28:poke1256,28:poke1257,28:poke1258,28
650 ti$="000000"
652 rem ** kollision ? **
653 :
654 gosub10
660 rem ** rakete des gegners **
661 :
670 ifpeek(715)<>0then680
675 pokev+10,peek(v+8):pokev+11,peek(v+9)-5
676 poke715,255:poke714,0
677 poke53206,30:sys53200
680 rem ** gegner vernichtet ? **
681 :
683 fort=0to2:if(peek(v+30)and16)=16then686
684 next:goto640
686 rem ** gegner vernichtet **
687 :
688 sc=sc+100:gt=gt+1:gosub720
689 ifgt=4thenpoke1136,32:poke1137,32:poke1138,32:pokev+21,15:pokev+10,0
703 goto640
720 rem ** score **
721 :
724 poke214,22:poke211,10:sys58640:print"[149]"sc:return
764 :
800 rem ** bild 3 **
801 :
822 pokev+21,0:goto33000
823 ti$="000000"
824 sc=sc+100:gosub720
826 pokev+21,15:l=l+1:gosub25
850 rem ** sperren/raketen ? **
851 :
852 ifval(ti$)<5then900
860 poke1267,32:poke1268,32:poke1269,32
862 poke1427,32:poke1428,32:poke1429,32
863 poke1642,32:poke1682,32:poke1722,32
864 poke1647,32:poke1687,32:poke1727,32
865 poke1651,32:poke1691,32:poke1731,32
870 fort=0to(400+l*70):next
875 poke1267,28:poke1268,28:poke1269,28
876 poke1427,28:poke1428,28:poke1429,28
877 poke1642,28:poke1682,28:poke1722,28
878 poke1647,28:poke1687,28:poke1727,28
879 poke1651,28:poke1691,28:poke1731,28
880 rem ** raketen **
882 fort=1328to1168step-40:poke54272+t,1:poket,37:sys53200:qq=sin(t)
883 poket,32:next
884 fort=1261to1244step-1:poke54272+t,1:poket,38:sys53200:qq=sin(t)
885 poket,32:next
890 ti$="000000"
900 rem ** bild 3 beendet ? **
901 :
902 ifpeek(v+1)<45then950
910 rem ** kollision ? **
911 :
912 gosub10
913 goto850
950 rem ** bild 3 beendet **
951 :
952 :
960 sc=sc+100:pokev+21,0:ifle<>0thenle=le-1
965 print"[147][149]\\\\\\^":print"\^"
967 print"\ #[149]":print"\ $[149] []"
969 print"\][\\\\\]"
970 print"[155]...es folgt der naechste durchgang...":fort=0to300:next
972 fort=130to1step-1:poke53206,t:sys53200:next
973 fort=1to130:poke53206,t:sys53200:next:fort=0to300:next
976 goto50
1000 rem * bitte warten *
1010 :
1011 print"[147]":poke53280,0:poke53281,0
1014 print:print"planet of death":print
1024 print"ein arcade-spiel fuer den commodore 64"
1025 printtab(8)"mit joystick (port 2)"
1030 printtab(13)"bitte warten"
1040 printtab(7)"daten werden eingelesen"
1050 :
2000 rem maschinenprogramm
2002 :
2003 data120,169,192,141,21,3,169,13,141,20,3,88,96
2005 data174,0,220,224,112,176,73,174,195,2,224,0,208,66,173,16,208,41,253,141
2006 data16,208,173,16,208,41,1,170,224,1,208,6,238,16,208,238,16,208,174,0,208
2007 data142,2,208,174,1,208,142,3,208,162,1,142,195,2,162,0,142,4,212
2008 data162,4,142,1,212,162,10,142,5,212,162,15,142,24,212,162,129,142,4,212
2010 data174,31,208,142,255,207
2011 data173,255,207,41,2,170,224,2,208,8,162,0,142,195,2,142,3,208
2013 data173,255,207,41,32,170,224,32,208,8,162,0,142,203,2,142,11,208
2015 data173,255,207,41,1,170,224,1,208,23,162,57,142,0,208,162,199,142,1,208
2016 data173,16,208,41,254,141,16,208,162,1,142,254,207,169,0,141,192,2,141,193
2103 data2,173,0,220,41,239,141,253,207,174,254,207,224,1,240,112
2105 data174,253,207,224,107,208,5,169,255,141,192,2,174,253,207,224,103
2106 data208,5,169,1,141,192,2
2107 data174,253,207,224,110,208,5,169,255,141,193,2,174,253,207,224,109,208,5
2108 data169,1,141,193,2,174,253,207,224,106,208,8,169,255,141,193,2,141,192,2
2109 data174,253,207,224,102,208,10,169,255,141,193,2,169,1,141,192,2
2110 data174,253,207,224,105,208,10,169,1,141,193,2,169,255,141,192,2
2111 data174,253,207,224,101,208,8,169,1,141,193,2,141,192,2
2119 data173,16,208,41,1,170,224,1,240,12,174,0,208,224,30,176,17,169,1
2120 data141,192,2,174,0,208,224,60,144,5,169,255,141,192,2
2150 data174,1,208,224,40,176,5,169,1,141,193,2,174,1,208,224,200,144,5,169,255
2151 data141,193,2
2182 data174,5,208,224,90,176,5,162,1,142,197,2,174,5,208,224,175,144,5,162,255
2183 data142,197,2
2184 data174,7,208,224,90,176,5,162,1,142,199,2,174,7,208,224,175,144,5,162,255
2185 data142,199,2
2193 data174,8,208,224,100,176,5,162,1,142,200,2,174,8,208,224,240,144,5,162
2219 data255,142,200,2,162,15,169,128,141,61,3,141
2220 data60,3,222,208,2,208,44,189,176,2,157,208,2,189,192,2,240,33,16,12,189,0
2230 data208,8,222,0,208,40,240,7,208,19,254,0,208,208,14,173,60,3,208,9,173,61
2240 data3,77,16,208,141,16,208,173,60,3,208,3,78,61,3,73,128,141,60,3,202,16
2250 data191,76,49,234,-1
3010 data162,0,142,11,212
3020 data162,255,142,8,212,162,10,142,12,212,162,15,142,24,212,162,129,142,11
3025 data212,96,-1
4080 data120,169,49,133,1,169,0,133,98,133,100,169,208,133,99,169,56,133,101
4082 data162,16,160,0,177,98,145,100,200,208,249,230,99,230,101,202,208,242
4085 data169,55,133,1,88,96,-1
4095 data1,1,3,7,15,31,127,255,255,255,255,255,255,255,255,255
4096 data128,128,192,224,240,248,254,255,255,252,252,240,224,192,128,128
4097 data255,63,63,7,3,3,1,1,,,,,,,,,8,76,247,3,3,247,76,8,0,0,0,0,0,0,0,0
4098 data16,16,16,56,56,56,108,68,124,108,238,198,214,84,56,16
4099 data16,16,16,56,56,124,56,16,0,3,15,252,252,15,3,-1
5000 rem ** einlesen der daten **
5001 :
5010 fort=0to1999:readq:ifq=-1then5026
5012 poke49152+t,q:next
5026 fort=0to999:readq:ifq=-1then5030
5027 poke53200+t,q:next
5030 fort=0to999:readq:ifq=-1then5035
5032 poke53000+t,q:next
5035 sys53000:poke53272,(peek(53272)and240)or14
5036 fort=0to999:readq:ifq=-1then5050
5037 poke14336+27*8+t,q:next
5050 :
6000 rem ** sprites **
6002 :
6006 rem ** eigener raumer **
6010 data,,,,,,,,,,60,,,102,,,195,,15,255,240,31,255,248,48,60,12,48,24,12,24
6020 data,24,24,,24,8,,16,,,,,,,,,,,,,,,,,,,,,,,,
6030 :
6032 rem ** bombe **
6035 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,24,,,24,,,24,,,,,,,,,,,,,,,,,,,,,,,
6040 rem ** geschuetz (gegner) **
6045 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,48,,,48,,8,48,64,8,48,64,56,120
6046 data112,127,255,248,63,255,240,31,255,224,15,3,192,
10000 rem ** einlesen der sprites **
10001 :
10010 fort=0to63:readq:poke832+t,q:next
10020 fort=0to63:readq:poke896+t,q:next
10030 fort=0to63:readq:poke960+t,q:next
15000 rem ** level **
15001 :
15003 fort=0to100:poke53206,t:sys53200:next
15010 print"[145][145][145]sind sie 1 = anfaenger, "
15020 printtab(7)" 2 = fortgeschrittener oder"
15025 printtab(7)" 3 = experte"
16000 geta$
16010 ifa$="1"thenle=4:goto20000
16011 ifa$="2"thenle=2:goto20000
16012 ifa$="3"thenle=0:goto20000
16013 goto16000
20000 rem ** variablen, daten **
20001 :
20002 v=53248:l=9:sc=0:poke53247,0:poke53246,0:poke56325,20
20022 pokev+27,44:poke706,0:poke707,0
20023 poke708,0:poke709,1
20024 poke710,0:poke711,255
20025 poke712,1:poke713,0
20042 poke688,3:poke689,3
20043 poke690,3:poke691,2
20044 poke692,3+le:poke693,3+le
20045 poke694,3+le:poke695,3+le
20046 poke696,2+le:poke699,2+le
20060 poke2040,13:poke2041,14:poke2042,14:poke2043,14:poke2044,15:poke2045,14
20142 pokev+39,1:pokev+40,1:pokev+41,1
20143 pokev+42,1:pokev+43,1:pokev+44,1
20170 pokev+16,0:pokev,56:pokev+1,200
20172 pokev+3,0:pokev+4,95:pokev+5,110
20173 pokev+6,255:pokev+7,110:goto50
30000 rem ** bild 1 **
30010 :
30090 print"[147][145][149]\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\"
30100 print"[145]\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\"
30105 print"[145]\\\\\^ _\\\\ \\time[146]\\\\\\\\\\\\"
30110 print"[145]\\\\^ _\\\ \\\\\\\\\\\^ _\\"
30115 print"[145]\\\^ _\^ _\\\\\\\\^ _\"
30120 print"[145]\\^ [\\] _] \\\\\\\^ \"
30125 print"[145]\^ [\\^ _] _] _\\\\\^ \"
30130 print"[145]\ [\\\ \] \ \\\\^ [] \"
30135 print"[145]\ \^_ \^ [\ _\^ \^ \"
30140 print"[145]\ \ [\\ [\ [\"
30150 print"[145]\ \ _\^ [\\^ \\"
30155 print"[145]\] \ _] [\\^ \\"
30160 print"[145]\\\\\] [ \] _] [\\\\\^ [\\"
30165 print"[145]\\^ _\\ \\] _\\\\\^ \\\"
30170 print"[145]\^ _^_] _^_\^ [^ _\"
30175 print"[145]\] \ [\ \"
30180 print"[145]\\] \] [\\] \"
30185 print"[145]\\\] [\] [\\] [\\\\\] [\"
30186 print"[145]\\\\ \\\\\\\\\\\] [\\\\\\\\\\\\"
30187 print"[145]\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
30188 print"[145]\\\\[162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
30189 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
30190 print"[145] score raumer "
30191 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":poke1983,160:poke56255,9
31000 goto80
32000 rem ** bild 2
32001 :
32017 print"[147][149][145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\"
32018 print"[149][145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\"
32020 print"[145]^ _^ _\\\^_^_^_^_^_^_\\^_\\\\[183][183][183][149]\\\\\"
32025 print"[145] \\\ \\ \\ ^[\\\"
32030 print"[145] \\\ _^ _\ [\\\\"
32032 print"[145] _\\] _ \\\\\"
32033 print"[145] _\] _\\\\"
32035 print"[145] \^ \\\"
32036 print"[145] \] [\\\"
32037 print"[145] \\ _\\\"
32038 print"[145] \^ \\\"
32039 print"[145] \] [\\\"
32040 print"[145]\] _^ _\\\"
32042 print"[145]\\ \\] \\\"
32043 print"[145]^ _\] [\\\"
32044 print"[145]] [\\ \\\\"
32045 print"[145]\\] \\\ ] [\\\\"
32046 print"[145]\\\ \\\] [\] [] [\\\\\\"
32047 print"[145]\\^ _\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
32048 print"[145]\\] \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
32049 print"[145]\\\[162][162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
32050 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
32051 print"[145] score raumer "
32052 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":poke1983,160
32053 poke56255,9:goto631
33000 rem ** bild 3 **
33009 :
33010 print"[147][149][145]\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\"
33012 print"[145]\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\"
33014 print"[145]\\\^ _\\ _\\\^ _\\^ _\"
33016 print"[145]\\^ _\ _\^ \"
33018 print"[145]\\ _] \ \"
33019 print"[145]\\] [] \ \ ![149]\"
33020 print"[145]\\\ \\ [\ [^ \"
33022 print"[145]\\\ \^ \^ \"
33023 print"[145]\\^ \] [^ #[149] [\"
33024 print"[145]\\] \^ _] [] $[149] [ ] [\\\"
33026 print"[145]\\\ \] _\\\\\\] [\\\\\ \ _\\\"
33027 print"[145]\\^ \\ _\\\\\\][\\\\\^ \] _\\"
33028 print"[145]\\ _\] _\\\\\\\\\\\\] _^ _\"
33030 print"[145]\\] \\] _\\\\\\\\\\\\ [] \"
33032 print"[145]\\\] _\\ _\\\\\\\\\\^ _\] \"
33034 print"[145]\\\\ \\ _ \"
33035 print"[145]\\^ \\] [\"
33036 print"[145]\\] [\\\] _\"
33037 print"[145]\\\ \\\\\ [\\\\\\\\\\\] \"
33038 print"[145]\\\ \\\\\] [\\\\\\\\\\\\\\] [\"
33039 print"[145]\\\[162][162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
33040 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
33100 print"[145] score raumer "
33101 print"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":poke1983,28
33102 poke56255,9:goto823